home *** CD-ROM | disk | FTP | other *** search
- /* Rexx
- ** Sendnews Version 2 - Enhanced
- */
-
- options results
- address command
-
- if exists("uuspool:newsrejects") then
- do
- if show("P","CP5PORT") then address cp5port "GO_ Attempting To Post Previous News Rejects"
- address command "nntpput uuspool:newsrejects AGAINLIST uuspool:newsrejects.tot NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
- if RC < 20 then
- do
- if show("P","CP5PORT") then address cp5port "GO_ News Posted"
- "copy uuspool:newsrejects uuspool:newsrejects.bak"
- "delete uuspool:newsrejects"
- end
- else
- do
- if show("P","CP5PORT") then address cp5port "GO_ News Not Sent Again!"
- end
- end
-
- if exists("uuspool:newsout") then
- do
- if show("P","CP5PORT") then address cp5port "GO_ Attempting to post News"
- address command "nntpput uuspool:newsout AGAINLIST uuspool:newsrejects
- NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
- if RC < 20 then
- do
- if show("P","CP5PORT") then address cp5port "GO_ News Posted"
- "copy uuspool:newsout uuspool:newsout.bak"
- "delete uuspool:newsout"
- end
- else
- do
- if show("P","CP5PORT") then address cp5port "GO_ News Not Sent"
- end
- end
-
-
-